Buscar por:

Criando cores personalizadas [sistema rgb]

Código

{Coloque um TButton no form e coloque o seguinte código no evento OnClick: } procedure TForm1.Button1Click(Sender: TObject); 

var 

Vermelho, Verde, Azul: byte; 

MinhaCor: TColor; 

begin 

Vermelho := 0; 

Verde := 200; 

Azul := 150; 

MinhaCor := TColor(RGB(Vermelho, Verde, Azul)); 

Form1.Color := MinhaCor; 

end;

{A quantidade de cada cor primária é um número de 0 a 255. Observe que a cor retornada pela função RGB() está no formato do Windows (ColorRef), é por isto que fiz a conversão TColor(RGB(...)). }